home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / clusask.dxr / 00057.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  1.6 KB  |  81 lines
  1. on exitFrame
  2.   set i to 54
  3.   set z to 3
  4.   repeat while i < 57
  5.     if the mouseCast = i then
  6.       set the visible of sprite z to 1
  7.     else
  8.       if the visible of sprite z = 1 then
  9.         set the visible of sprite z to 0
  10.       end if
  11.     end if
  12.     set i to i + 1
  13.     set z to z + 1
  14.   end repeat
  15.   go(the frame)
  16. end
  17.  
  18. on mouseDown
  19.   set i to 54
  20.   set z to 6
  21.   repeat while i < 57
  22.     if the mouseCast = i then
  23.       set the visible of sprite z to 1
  24.     end if
  25.     set i to i + 1
  26.     set z to z + 1
  27.   end repeat
  28. end
  29.  
  30. on mouseUp
  31.   global coracao, luva, cacto
  32.   if the visible of sprite 6 = 1 then
  33.     set the visible of sprite 6 to 0
  34.     set the visible of sprite 3 to 0
  35.     set cacto to cacto + 1
  36.     if coracao > 3 then
  37.       go(the frame + 2)
  38.     else
  39.       if cacto > 3 then
  40.         go(the frame + 4)
  41.       else
  42.         if luva > 3 then
  43.           go(the frame + 6)
  44.         end if
  45.       end if
  46.     end if
  47.   end if
  48.   if the visible of sprite 7 = 1 then
  49.     set the visible of sprite 7 to 0
  50.     set the visible of sprite 4 to 0
  51.     set coracao to coracao + 1
  52.     if coracao > 3 then
  53.       go(the frame + 2)
  54.     else
  55.       if cacto > 3 then
  56.         go(the frame + 4)
  57.       else
  58.         if luva > 3 then
  59.           go(the frame + 6)
  60.         end if
  61.       end if
  62.     end if
  63.   end if
  64.   if the visible of sprite 8 = 1 then
  65.     set the visible of sprite 8 to 0
  66.     set the visible of sprite 5 to 0
  67.     set coracao to coracao + 1
  68.     if coracao > 3 then
  69.       go(the frame + 2)
  70.     else
  71.       if cacto > 3 then
  72.         go(the frame + 4)
  73.       else
  74.         if luva > 3 then
  75.           go(the frame + 6)
  76.         end if
  77.       end if
  78.     end if
  79.   end if
  80. end
  81.